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ABSTRACT 



THE RFU OISK DATA TEST IS A SERIES OF STATIC. ADDRESS AND DATA 
RELIABILITY ROUTINES WHICH VERIFY TO THE USER THE DISK 
CONTROL (RFU) AND DSlK (RSll) ARE OPERATING CORRECTLY, THIS 
TEST USED IN CONJUNCTION WITH THE RFU DISKLESS AND RFU 
MULTI DISK ASSURES THE USER OF AN ERROR FREE SYSTEMi WHEN 
USED IN ITS ENTIRETY. 

2. REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11/20 
RFll AND RSll 

2.2 STORAGE 
STATIC TEST 

PROGRAM OCCUPIES FROM TO 11134 
DATA TEST 

MAIN BODY OF PROGRAM OCCUPIES FROM LOC TO 13476 
WRITE OUTPUT BUFFER OCCUPIES FROM LOC 13500 TO 15476 
READ INPUT BUFFER OCCUPIES FROM LOC 15500 To 17476 

3. LOADING PROCEDURE 

3,1 METHOD OF LOADING BOTH STATIC AND DATA TEST TAPES 

PROGRAM FORMAT ABSOLUTE 

A. VERIFY THE BOOT LOADER IS IN MEMORY. 
B i SET SWITCH REGISTER EQUAL TO *750 



MEMORY SI2E * 
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16K 

2£iK 
24K 
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C. 



DEPRESS 



LOAD ADDRESS. 



DEPRESS 



START, 



4 . 



STARTING PROCEDURE 



4.1 



WORST CASE DISK TEST UNIT 2ERQ FOR BOTH STATIC AND DATA TEST 



A) SET SWITCH REGISTER EQUAL TO 200 

B) DEPRESS LOAD ADDRESS 

C) SET SWITCH REGISTER EQUAL TO ZERO 

D) DEPRESS START 



4.2 OPERATOR INTERVENTION FOR DATA TEST ONLY • 

A) SET SWITCH REGISTER EQUAL TO 200 

B) DEPRESS LOAD ADDRESS 

O SET SWITCH REGISTER EQUAL TO MODE OF OPERATION (REF, SEC5.) 

D> DEPRESS START. 



4,3 



ADDRESS ENTRY POINTS FOR TEST ROUTINES 



•••STATIC ROUTINES*** 

•••ROUTINES IN STATIC TEST ONLY»*« 



3^0 


JMP 


STAIi 


TEST RESET TO CONTROL REGISTER 


3 4 


JMP 


STAI2 


TEST RESET TO CURRENT ADDRESS REGISTER 


310 


jMP 


STA 1 3 


TEST RESET TO WORD COUNT REGISTER 


314 


JMP 


STA I 4 


TEST RESET TO DISK ADDRESS REGISTER 


320 


JMP 


STA I 5 


TEST RESET TO DISK EXT, ADDRESS REGISTER 


324 


JMP 


ST A 1 6 


TEST RESET TO DATE BUFFER REGISTER 


330 


JMP 


STA I 7 


TEST RESET TO MAINTENANCE REGISTER 


334 


JMP 


STAI10 


CAN WE SET W/R BITS IN DCS REGISTER 


340 


JMP 


STA 111 


CAN WE CLEAR THE DCS REGISTER 








USING DISK CLEAR, 


344 


JMP 


STAU2 


CAN WE SET ALL CMA BITS 


350 


JMP 


STAI 13 


CAN WE CLEAR ALL CMA BITS 








USING DISK CLEAR 


354 


JMP 


STA 1 14 


CAN WE SET ALL WC BITS 


360 


JMP 


STAU& 


CAN WE CLEAR ALL WC BITS 








using disk clear 


364 


JMP 


STAI16 


CAN WE SET ALL THE DAR BITS 


370 


JMP 


STAII/ 


CAN WE CLEAR ALL THE DAR BITS 








i I A V t I A A a A L4 At A A 

USING DISK CLEAR 


374 


JMP 


STAI20 


CAN WE SET ALL THE DAE BITS 


4 


JMP 


STAI21 


CAN WE CLEAR ALL THE DAE B I TS # 








using disk clear 


4-4 


JMP 


STAJ 2'd 


EXECUTE A ONE WORD WRITE 








FOLLOWED BY A ONE WORD WRITE CONTINUE 


410 


JMP 


STAI 40 


EXECUTF A ONE WORD WRITE CHECK 








FOLLOWED BY A ONE WORD WRITE CHECK CONTINUE 


414 


JMP 


STAI56 


EXECUTE A ONE WORD READ 








FOLLOWED BY A ONE WORD READ CONTINUE 


420 


JMP 


STAI74 


TEST TRaCK INCREMENT 


424 


JMP 


STA I 7 / 


TEST DISK INCREMENT 


430 


JMP 


STA10<5 


TEST THAT NED RAISES ERROR FLAG 


434 


JMP 


ST105X 


check cma inhibit 


440 


JMP 


NXMTSM 


TEST N0N"EX I STENT MEMORY ERROR 


444 


JMP 


STA106 


TEST THAT THE DISK WILL NOT TRAP 






AT PRIORITY 7 


450 


JMP 


STA110 


wVAai f I i . ■ fiii* Ft • a Mali hiAW A a A 

TEST THAT THE DISK WILL NOT TRAP 








AT PRIORITY 6 


454 


JMP 


STA112 


TEST THAT THE DISK WILL NOT TRAP 








aW AATAx*VVW C 

AT PRIORITY 5 


460 


JMP 


STA114 


TEST THAT THE DISK WILL TRAP 








AT PRIORITY 4 


464 


JMP 


ADT1 


ADDRESS TEST 1 








CHECK TIMING BY EXECUTING 








a one w rd write 


470 


JMP 


ADT2X 


ADDRESS TEST 2 








check timing by executing 








A ONE WORD READ 



•••ROUTINES IN DATA TEST ONLY*** 



6^0 


JMP 


A0T2 


CHECK 
WORD 
DOES 
WORDS 


That when a 

IS WRITTEN IT 

NOT ALTER ADJACENT 


6 r '4 


JMP 


AQT3 


WRITE 
READ 


Each word addr on itself and 
back to compare 


610 


JMP 


ADT4 


TRACK 


SELECTION TEST 


614 


JMP 


ADT5 


LOOK 


AHEAD TEST 


620 


JMP 


SPIRAL 


SPIRAL TEST 


624 


JMP 


XSPIRAU 


SPIRAL TEST EXTENSION 


630 


JMP 


RANEX 


RANDOM ADDRESSi DATA AND 
WORD COUNT TEST 


634 


JMP 


EXTMEN 


DISK 


EXT • MEMORY EXERCISER 


640 


JMP 


PFTl 


DISK 


WRITE POWER FAIL TEST 


644 


JMP 


PFT2 


DISK 


WRITE CHECK POWER FAIL TEST 


•••MAINTENANCE ROUTINES*** 
ROUTINES JN STATIC AND DATA 


TEST BOTH 




650 


JMP 


SELWC 


LOAD 
WITH 


WORD COUNT REG, 
SWITCH REGISTER 


654 


JMP 


SELCMA 


LOAD 
REG, 


CURRENT MEMORY ADDR 
WITH SWITCH REGISTER 


660 


JMP 


SELDAR 


LOAD 
WITH 


DISK ADDR, REGISTER 
SWITCH REGISTER 


664 


JMP 


seldae 


LOAD 
WITH 


DISK ADDR, EXT , 
SWITCH REGISTER 


670 


JMP 


selobR 


LOAD 
WITH 


data buffer register 
switch register 


674 


JMP 


MOVLK 


MOVE 
AHEAD 


CONTENTS OF LOOK 
REGISTER INTO DATA LIGHTS 


7 


JMP 


SELDCS 


LOAD 
WITH 


DISK CONTROL REGISTER 
SWITCH REGISTER 


7^4 


JMP 


STAMP 


ENABLE READ AMPLIFIERS 



TO TRACK SELECTED 



OPERATING PROCEDURE 

CONTROL SWITCH SETTINGS 

PROGRAM CONVERSATION 

SR15 SET ENTER PROGRAM CONVERSATION MODE 

REP, SEC. 5,2 

RESET OPERATE WORSE CASE DISK ZERO 

DELETE TYPEOUT 
SR14 SET DELETt TYPEOUTS 

RESET REPORT MESSAGE 

HALT ON COMPLETION FLAG 
SR13 SET HALT ON FLAG (READY) 

RESET EXECUTE NEXT OPERATION 

DELETE COMPARISONS 
SR12 SET DELETE DATA COMPARISONS 

RESET COMPARE DATA BUFFERS 

LOOP ON TEST 

SRll SET LOOP ON TEST 

RESET CONTINUE TO NEXT TEST 

HALT ON ERROR 

SR10 SET HALT AFTER ERROR REPORT 

RESET CONTINUE AFTER ERROR REPORT 



IDENTIFICATION 

PRODUCT CODEi MAlNOEC 11-05AA 
PRODUCT NAME X RFll MULT I DISK 
DATE CREATED! 1 NOVEMBER 1978 
MAINTAINER1 DIAGNOSTIC GROUP 

AUTHOR? E. HAIGHT 



A 8 £ Jpi^^fcC ^ 

MULT I DISK IS A HIGH SPEED CONFIDENCE TEST THAT ASSURES 
THE USER THAT H£ CAN TRANSFER DATA CORRECTLY , WITHOUT 
DESTROYING THE DATA ON THE DISK, MULT! DISK USES ALL 
EXISTING MEMORY ON THE SYSTEM AS BUFFER AREAS . 

REQUIREMENTS 

A, PDP-11 4K TO 28K OF MEMORY 



8 . RFii AND RS11 PLUS UP TO SEVEN ADDITIONAL RSll'S 
STORAGE 

THE MAIN BODY OF THE PROGRAM OCCUPIES THE FjRST 5K OCTAL (BYTES) 
OF MEMORY . THREE DATA BUFFERS OCCUPY THE REST OF EXISTING 



OUT SUFFER = RANDOM DATA TO BE WRITTEN ON THE DISK, 

IN BUFFER * AREA FOR RANDOM DATA WHEN READ FROM THE DISK, 

SAVE BUFFER = AREA TO SAVE DISK WHEN EXERCISING, 

LOADING PROCEDURE 

METHOD 

PROGRAM FORMAT ABSOLUTE 

A. VERIFY THE BOOT LOADER IS IN MEMORY. 

B. LOAD TAPE INTO READER, 

C. SET SWITCH REGISTER EQUAL TO #750 



TELETYPE 



MEMORY . 



BUFFER ORDER 



MEMORY 



SIZE * 



4K 

8K 

12K 

16K 

20K 

24K 

28K 



17 

37 

57 

77 

117 

137 

157 



DEPRESS LOAD ADDRESS, 



DEPRESS START, 



4. 



STAHTI&G PROCEDURE 

A." cT SWITCH REGISTER EQUAT TO 203. 



DEPRESS LOAD ADDRESS. 
DEPRESS START. 

THE PROGRAM AT THIS POINT WILL DETERMINE THE AMOUNT OF 
EXISTING CORE MEMORY, AND SET UP THE WORD COUNT AND BUFFER 
AREAS FOR THE PROGRAM, 

THE PROGRAM WILL NEXT REPORT THE NUMBER OF EXISTING OISK(S) 
WHICH WHICH ARE ON THE SYSTEM, THE NUMBER WILL RANGE 
FROM 1-10 OCTAL, THE DISK SELECTION LINES MUST BE IN 
SEQUENTIAL ORDER RANGING FROM TO 7, 

06 EXISTENT DISK(S) 

J. OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 

THE SWITCH REGISTER HAS NO CONTROL OVER THE OPERATION OF THIS 
PROGRAM, 

3.2 STOPPING THE PROGRAM 

MULT ! DISK MUST ONLY BE STOPPED BY TYPING CONTROL C, IF THE 
USER STOPS THE PROGRAM BY DEPRESSING CONSOLE HALT » THE DISK 
SURFACE MAY NOT BE RESTOREO , 

>.3 PROGRAM ABSTRACT 

MULT I DISK WAS DESIGNED TO INSURE THE USER THAT THE DISK 

SYSTEM IS CAPABLE OF TRANSFERRING DATA CORRECTLY WHILE NOT 

DESTROYING THE USERS PROGRAMS ON THE DISK SURFACE, THE 

PROGRAM FIRST READS FROM THE DISK, THE LENGTH OF THE TRANSFER 

IS DETERMINED BY THE SIZE OF MEMORY, IF AN ERROR OCCURS WHILE 

READING, THE PROGRAM WILL MAKE UP TO THREE ATTEMPTS AT 

READING THE DATA, IF THE ERROR STILL EXISTS, THE PROGRAM W ILL THEN 

HALT. IF THE PROGRAM SUCCESSFULLY READS FROM The DISK WITHIN 

THE THREE ATTEMPTS » IT WILL THEN GENERATE A RANDOM BUFFER, 

WRITE IT ON THE DISK, AND READ IT BACK AND VERIFY IT. AFTER 

COMPARING THE DATA, THE PROGRAM THEN WRITES THE ORIGINAL 

DATA BACK ON THE DISK, MAKING UP TO THREE ATTEMPTS TO TRANSFER 

IF AN ERROR IS ENCOUNTERED, 9EF0RE HALTING, IF THE DATA 

WAS SUCCESSFULY TRANSFERRED , THE PROGRAM WILL GO TO THE NEXT 

DISK BUFFER UNTIL THE COMPLETE DISK SYSTEM IS EXERCISED, 



NOTE I EACH WRITE IS FOLLOWED BY A WRITE CHECK. 



ERROR HA^fS 



THE PROCESSOR HALTED AT LOC, 1316. CAUSE Of HALT, MO BUS 
ERROR OCCURRED WHEN ADDRESSING NON-EX I STENT MEMORY ♦ 

THE PROCESSOR HALTED AT LOG, 1434, CAUSE OF* HALT NO SELECTED 
DISK ON THE SYSTEM » OR DISKS NOT SELECTED I N SEQUENTIAL ORDER 
STARTING WITH OlSK 0. 

THE PROCESSOR HALTED AT LOC, 1750, THE CAUSE OF THE HALT, 
UNABLE TO READ FROM THE DISK FOR THE SAVE BUFFER , THREE 
ATTEMPTS WERE MADE. 

THE PROCESSOR HALTED AT LOC , 2142, THE CAUSE OF THE HALT, 
UNABLE TO RESTORE THE DISK SURFACE, THREE ATTEMPTS WERE MADE, 

>,2 ERROR REPORTS 

STATUS ERROR 

STATUS ERROR XXDAE. .XXXXXXDAR, XXXXXXDCS, 




A 



B 



C 



A=THE DISK NUMBER AND EXTENDED DISK ADDRESS BITS. 
8=THE DISK ADDRESS REGISTER 
C=THE DISK CONTROL REGISTER 



LAYOUT OF DISK ADDRESS BITS 

DAE DAR 
XXX XXX XXX XXX XXX XXX XXX 



DISK NO. TRACK ADDRESS WORD ADDRESS 



?U T LAYOUT CF DCS REGISTER 

BIT15s ERROR 

BtT14« DISK FREEiE 

BITl3s kRITE CHECK ERROR 

6 I T12= DATA PARITY ERROR 

BITlls NON-EXISTENT DISK 

BIT10= WRITE LOCKOUT 

8IT9s MISSED TRANSFER 

BI T8= DISK CLEAR 

BIT7= READY 

8 1 T6= INTERRUPT ENABLE 

BIT5= EXTENDED MEMORY 1 (XM1) 

BIT4= EXTENDED MEMORY ( XM0 ) 

BIT3= MAINTENANCE 

8IT2-1= FUNCTION REGISTER 



BIT 2 

— ^ 

1 



BIT 

"""""¥ 

1 
1 



OPIMIiPJL 





NOP 




READ 




WRITE 




WRITE CHECK 



8IT0= GO (WRITE ONLY BJT) 



• .- >. a ;" ; :: : ^ ■■ - 

..ayqjt of' [} i '* s z - 7 

g i t0s cma !nw. <\qt a n error cons it ion) 
bit1= unused 

BlT2e M ON-~rX ISTn vr MEMORY e R <? q !•? 
81 T3= UNUSED 

c I T '? - i <■< ACK C r I i ... l ^ H x 
b I T 5 ~ TRACK B 1 I M 1 N G ERROR 
8 T T 6 = TRACK A TIMING £'*ROR 
S IT 7s ADDRESS PAR I FY ERROR 

CAT A Enfi CSS 

OA U ERROR ,XXOAE, ^XXXXXOAR, .XHXXXXGOQD DATA, ^X X X X X X B A DATA. 

ABC D 

A« THE Os.SK NUM BER AND EXrENDEO DISK ADDRESS 81'fS 

u - i n F. ! J a S K A U u K i„ ■> G R L G 1 G > £. R 

C*T!;e DATA WRITTEN ON THE DISK 

:"' r :,C CAT a ^CAO FROM T H E OJSi-i 

DISK ADDRESS ERROR 

DISK AODKtSS £R,.OR XxQaEXXXXXXDAR 

T-^ TERMINATING DISK ADDrtCSS AFT£H THE f RAWER WAS NOT corpxct 
THE DAE AND GAR SHOULD EQUAL WHAT WAS REPORTED, CHECK THE 
HfU PANEL FOR THE ERROR ADDRESS. 

PROCESSOR TIME OUT 

PROCESSOR BACKGROUND TIMED OUT, 

THIS MESSAGE WILL BE REPORTED IF THE DISK FAILS TQ RaIS£ A BR 
REQUEST AFTER EXTENDED PERIOD OF TIME, 

END 

END 

THIS MESSAGE IS REPORTED AT THE END OF ONE COMPLETE PASS OF 
THE DISK SYSTEM. 

RESTRICT IONS 

THE DISKS MUST BE IN SEQUENTIAL ORDER RANGING FROM DISK 
SELECT £ - 7. 



PRO^H DESCRIPTION 



MULTI DISK IS NOT A DIAGNOSTIC - IT IS' MERELY A CQNr I OENCt v ■ 
TEST, IF THE USER ENCOUNTERS ANY PROBLEMS WITH THE SYSTEM 
i»H I lE OPERATING »*ULTI DISK, HE SHOULD NOT TRY TO OlAGNOSE THE 
PROBLEM USING THIS PROGRAM. IF PROBLEMS ARE ENCOUNTERED, I T 
IS SUGGESTED THaT THE USER REVERTS TO DISK DATA AS A MEANS 
OF DIAGNOSING HIS PR08LEM* 



PALX11 V003 19-NOV-70 
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000200 



000001 
000002 
000004 
000010 

000020 
000040 

000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 



404487 

40*409 



900330 



$0S?22 



BIT081 
8!U«2 
BIT2*4 
B!T3»10 

Bl74s20 
BIT5M0 
BIT6«100 

BlT7a200 
B1TS«400 

8!?9«1000 
B!U0»2000 

BIT11^4@00 
81T12«10000 
BITi3*20000 
BlTl<s40000 

8IT15H00000 

I 

J 

I 

URCrtgCK«TRAp*7 

8gA0*TfUP*§ 



JMP 



START 



I STATIC ROUTINES 
,a300 



RF11 DATA TEST 

VECfORS USED IN PROGRAM 

n\ LOG 204 DISK INTERRUPT 

#2 LOG 30 £M? (TELETYPE OUTPUT) 

#3 LOG 34 TRAP (DISK HANDLERS) 

#4 LOG 14 TRACE TRAP (USED IN BACKGROUND TEST) 

$5 IOC 20 IOT TRAP (USED IN CALLING BACKGROUND TEST) 



001000 



'1000 



PALXil 
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15104 PACE 2 



001000 
001002 
001004 
001006 
001010 
001012 



001014 
001016 
001020 
001022 
001024 
001026 
001030 
001032 
001034 
001836 
001048 



001000 



177570 
177776 
177566 
177562 
177564 
177560 



177460 
177462 
177464 
177466 
177470 
177472 
177474 
177476 
000204 
080206 



.EVEN 

J 

I I/O ADDRESS POINTERS 

SRI 177570 

CSRI 177776 

TPBl 177566 

TKBt 177562 

TpSt 177564 

TKSl 177560 

) 

IDISK I/O REGISTERS 
I 



DC5S 
WCI 

CM A? 

OAR» 

DAE: 

DBRl 

MAS 

ADS $ 



177460 
177462 
177464 
177466 

177470 
177472 

177474 
177476 



VECY9RI 204 
STATUS* 206 

PR10R1TYI8IT7 



RF11DED1CATE REGISTERS 



001042 


000000 


FLAG j 





001044 


146723 


RANNU J 


%' 


001046 


000000 


WRDCT I 





001050 


000000 


TRACK * 





001052 


000000 


OMAt 





001054 


000000 


PATNUl 





001056 


000000 


BUFl 





001060 


000000 


TWRDCTI 





001062 


000000 


TDM A 1 





001064 


000000 


SWRDCTI 





001066 


000000 


ERCOUNT 1 


001070 


000000 


SAVEI 





001072 


000000 


SAVlf 





001074 


000000 


PASSI 





001076 


000000 


DSKNORI 





001100 


000000 


MRDERt 





001102 


000000 


HIGH | 





001104 


000000 


LIMITI 





001106 


000000 


TTRACKI 





001110 


000000 


TDSKNOI 





001112 


004446 


OUTRUFI 


81 


001114 


000009 


INBUFl 






ISWITCM REGISTER 
IPROCESSOR STATUS REGISTER 

I TELETYPE REGISTERS 



IDISK CONTROL REGISTER 

mom count register 

I CURRENT ADDRESS REGISTER 

I LOWER 16 BITS OF DISK ADDRESS 

I EXTENSION ADDRESS REGISTER 

5 DATA BUFFER REGISTER 

IMA1NTENANCE REGISTER 

I LOOK AHEAD REGISTER 

J INTERRUPT VECTOR ADDRESS 

iDtSK INTERRUPT STATUS 

IDISK PRIORITY LEVEL 



(MEMORY) 

I INTERNAL PROGRAM FLAG 
{RANDOM NUMBER PRIME 
I WORKING WORD COUNT 
JWORKING DAE 

I WORKING DATA BUFFER <OUT«lN> 

IDATA PATTERN INDEX 

} WORKING DATA SUFFER (OUT-IN) 

I TEMP WORD COUNT 

I TEMP DAR 

I STANDARD WORD COUNT 

J ERROR COUNT FOR MESSATES , 



IPOINTER FOR HARD ERROR 



J TEMP TRACK NO. 
I TEMP DISK NO. 
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0SS1116 000000 



001120 
001122 000000 
001124 000000 



15104 PAGE 2-1 

SAVBUFJ 
I 

jRFll WORK REGISTERS 

J (CAN BE CHANGED IN ANY ROUTINE) 

WORK! 

WORKU 

W0RK2I 



PALX11 


V003 


19-NQV- 


70 


001126 


000009 






001130 


012706 


001000 




001134 


012767 


000006 


176642 


001142 


005067 


176640 




001146 


012777 


022270 


177660 


001154 


012777 


000340 


177654 


001162 


012767 


003610 


176640 


001170 


012767 


000340 


176634 


001176 


012767 


002216 


176630 


081204 


012767 


000340 


176624 


001.212 


012777 


0G0340 


177362 


001220 


085067 


.17763,6 




001224 




177620 




(71(31 'J"iOi 

'»} Ti K. ■■> » 


wi sy tj c* f 


1 7 A < A 




001234 




3,77614 




001240 


01276/ 


333464 


176552 


001246 




176550 






012777 




i??52Z 


003.260 


312767 




176516 


001266 


312767 




176512 


001274 


S12767 


5 7136 


1771366 




003777 


l/'/ ? -62 




3SU3E6 


022767 


1 , 7 -i 5 


177534 


001314 








0131316 








0013^0 


800777 






001322 


0627*7 




177340 


0631330 








001332 


012706 


301000 




001336 


162767 


320000 


177524 


001344 


§32767 




177470 


001332 


005067 


177342 




001356 


016777 


177536 


177440 


001364 


032777 


034000 


177422 


001372 


001010 






031374 


062767 


000004 


177516 


001402 


022767 


8i30040 


177510 


001410 


001401 






001412 


000761 







15104 PAGE 3 



START I RESET 

MOV #1000, X6 

MOV #6,4 

CUR 6 

MOV #DKINT,»VECTOR 

MOV #340,*STATUS 

MOV #EMTRPi 30 

MOV #340,32 

MOV #D1SK^4 

MOV #340,36 

MOV 0340, 9CSR 

CLR FLAG 

CUR TRACK 

CtR DMA 

CLR PATNU 

MOV #XWAIT.20 

CUR 22 
ITH1S ROUTINE DETERMINES HOW H 
I 
I 



EKTMEKi 


MOV 


0340. 9CSR 




MOV 


fJMAXREF,4 




MOV 


#340,6 

#17446*SA¥E 




MOV 


EX&SFI 


TST 






CMP 


stl77446 s SAVE 




BNE 






HAL? 






BR 






ADD 


J2000g#SAVK 




OR 




MAxaen 


MOV 


03.000*86 




SUB 


^20900 * SAVE 




BIT 


#BIT10»FLAO 


5 ROUTINE TO REPORT THE NUHBE1 


ION THE 


SYSTEM. 




REPQNJ 


CLR 


WORK 


INOSK 5 


MOV 


WORK, »OAE 




BIT 


ffBITll*l»DCS 




BNE 


NF.OST 




ADD 


#4 a WORK 




CMP 


#40, WORK 




BEQ 


,♦4 

INOSK 




BR 



ICIEAR THE WORLD 
JSET UP STACK 



ISET UP DISK POINTER 

HOCK UP INTERRUPTS 

I SET UP fTV POINTER 

I LOCK UP INTERRUPTS 

J SET UP DISK HANDLER POINTER 

J LOCK UP INTERRUPTS 

5L0CX UP INTERRUPT LEVELS 

J CLEAR PKOSRAH FLAfi 

f CLEAR TRACK REGISTERS 

J CLEAR DAS REGISTERS 

ICLEAR PATTER COUNT 



nznom is on im system 



UP -PI - ill t Y " .„,".» 
I<V i' UP -MOL,.'* yfl "JUP 

If. IV- f c , IV/ 

!MOv. -«SGR £/<ROR H .'TP i *. Til TRAP 

; '* r " 7 UP Fan \j..;< , uc/lu M ; 
jfs'UPg^S*., * I* ,K i 3A**K 



EXIBTEJ*f D!8K<S> 



>LOAO DISK EXT. ADDR.BITS 
{TEST FOR NON-EXISTENT DISK 

j branch If mm existent disk set 

?SET UP NEXT DISK NO, 
ICMECK FOR 8 DISKS 
i BRANCH If 8 DISKS 
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V003 


19-N0V- 


70 


001414 


006067 


177500 




001420 


006067 


177474 




001424 


032767 


000017 


177466 


001432 


001002 






001434 


000000 






001436 


000777 






001440 


004567 


002332 




001444 


001120 






001446 


004351 






001450 


000002 






001452 


104000 






001454 


004167 






001456 


004351 






001460 


177777 








S t) J Q <J / 






001166 


006167 


177426 




0014/2 


006167 


177422 




031476 


016767 


1/7416 


177372 


081504 


166767 


177402 


177356 


001512 


003067 


177402 




005,516 


162767 


0?i0003 


177344 


001524 


022767 


000003 




001532 








001534 


003267 


177360 




001240 


000766 






001542 


042767 


090001 


177330 


001550 


016767 


177336 


177336 


001556 


066767 


1/7336 


177330 


001564 


016767 


177324 


177324 


001572 


066767 


177322 


177316 


001600 


016767 


1/7314 


177255 


10 is) A O 10 








001610 


006067 


177250 




001614 


012767 


003554 


176236 


001622 


012767 


000340 


176232 


001630 


052777 


000100 


177154 


001636 


016767 


177222 


177202 


001644 


012767 


001636 


177226 


001632 


005067 


177174 




001656 


005067 


177166 




001662 


012777 


000340 


177X12 


001670 


016767 


177222 


177160 


001676 


042767 


000003 


177136 



15104 PAGE 4 



NEDSTI RQR WORK 

ROW WORK 

BIT #17, WORK 

SNE ,*6 
HALT 
BR 

JSR %5,C0NV 

WORK 
HESll 

2 

CMT *0 

HE 05 A 

MESH 

»i 

DEC WORK 

ROL WORK 

ROL WORK 

MOV W0RK»DSKN0N 
I ROUTINE TO SET UP WR I TE/REAO 
I 
I 

SUB 0UTBUF#5AVE 

GUR WORK 

SET8UFI SUB #3 » SAVE 

CMP #S ? SAV£ 

OH I OVERFtO 

INC WORK 

BR SET BUF 

OV^RfLOIBIO #B!YS«UOR'K 

MOV 0U7BUF, INBUP 

■ ADD WORK,INBUP 

MOV inbup»savbuf 

ADO WORK.SAVBUF 

MOV WORK e SWRDCT 
CLC 

ROR SWRDCT 

MOV #CNTLS*60 

HOV #340,62 

BIS #BIT6#«TKS 

J 

DATATS HOV SWRDCT, WROCT 

HOV flQATAT , HRDER 

CUR DMA 

CtR TRACK 

RQ3AVS HOV #340,&CSR 

MOV SAVBUF t BUF 

SIC #3#FLAG 



BUFFERS 



JDIVIDg MEMORY BY S 

J BRANCH If m REMA INDER 

i*i count 



?3E? UP iN-BUFFE* 

s 

I SET UP SAVE BUFFER 

I SET UP WORD COUNT 

MHVfDE BYTESX2 

ISEY UP t?Y VECTOR 

J ENABLE TTY INTERRUPT 

{SET UP WORD COUNT 

I SET Mf FOR HARD ERROR 



JLOCK UP PROCESSOR PRIORITY 
i SET UP CURRENT aDDR 



PALX11 


V003 


19-N0V- 


70 


15104 PACE 5 






001724 


042767 


001000 


177130 


LDATI BIC 


#BIT9»FLAG 




001712 


005267 


177124 




INC 


FLAG 




001716 


104505 






READ 


+ 100 




001720 


000004 






IOT 




J HA IT FOR FLAG IN BACKGROUND TEST 


001722 


032767 


001000 


177112 


BIT 


#8IT9#FLAG 


I CHECK FOR ERROR 


001730 


001414 






BEQ 


WROAT 


J WRITE RANDOM BATE 


001732 


016767 


177104 


177160 


MOV 


FLAG, WORK 


) TRY TO READ 3 TIMES 


001740 


048767 


177774 


177152 


BIC 


#177774 , WORK 




001746 


022767 


005003 


177144 


CMP 


#3#H0RK 




001754 


001333 






BNE 


LOAT 




001736 


00000® 






HALT 




) UNABLE TO RSAD FROM 


801760 


000777 






BR 


t 


iDISK 


001762 


012767 


002102 


177^10 


WRDATl MOV 


#WRSAV»HRDER 


j SET UP FOR WARD ERROR 


001770 




177116 


177960 


MOV 


OUTSUf#BUF 


1 SET UP RANDOM BUFFEI1 


081776 








WRITE 


*100 




002000 


000004 






IOT 




SWA IT FOR FLAG IN BACK GROUND 




042767 


000003 


177032 


BIC 






082310 


016767 


177100 


177040 


MOV 


iNSyr ? Bur 


iSEf UP SORRENT ADDft 




042767 


801200 


177016 


R A MR Bl BIC 


3B!T9#FLAG 




002S24 


3&S267 


177012 




INC 


Fl s .4G 




002*330 








READ 


*108 




002082 


$00304 






IOT 




jfHAtf FOR FLAG IN 3AUK8R0UND 


002034 


004567 


001176 




JSR 


555 1 COMPARE 


1 COMPARE DATA 


002040 


032767 


001S00 


176774 


SIT 


#B1T9»FLAG 


IC^ECK FOR ERROR 


002046 


031413 






BEO 


WRSAV 


IRSSTORS: DISK BUFFER 


002050 


016767 


1V6766 


17704.2 


MOV 


FLAG » WORK 


iCME^K FOR 3 RE-READS 


002056 


042767 


177774 


177034 


BIC 


#177774, WORK 




002064 


022767 


0P0003 


177026 


CHP 






002072 


mu$% 






BNE 


RANRO 


IG3 RS»REA0 DATE 


002374 


342767 


000003 


176740 


BIC 


#3#fuc 




002102 


042767 


001300 


176732 


HRSAVS BIC 


#BZTf *Fi.AG 


ICLSAR PRSSRAM gRROR FLAG 


002110 


916767 


177002 


176740 


MOV 


SAVBUF#BUF 


f SET UP CURRENT ADDRESS 


002116 


104503 






WRITE 


*103 




002120 


000004 






IOT 




* WAIT IN BACKGROUND TEST 


002122 


104307 






WRCHECK 


♦ 100 




002124 


000004 






IOT 




i wait for flag 


002126 


032767 


001000 


176706 


SIT 


*BIT9,FLAG 


! CHECK FOR ERROR 


002134 


001413 






BEG 


STORBU 




002136 


016767 


176700 


176734 


MOV 


FLAG, WORK 




002144 


042767 


177774 


176746 


BIC 


#177774, WORK 




002132 


022767 


000003 


176740 


CMP 


#3* WORK 




002160 


001350 






BNE 


WRSAV 




002162 


000000 






HALT 






002164 


005767 


176652 




STORBUI TST 


FLAG 




002170 


100410 






BMI 


RESTORE 


j RESTORE DISK AND EXIT 


002172 


004767 


000342 




jSR 


X7i OlSBUF 


1 SET UP NEXT DISK BUFFER 


002176 


000167 


177460 




JMP 


ROSAV 


JRKAD NEXT BUFFER 


002202 


104001 






EMT 


♦ 1 


I REPORT END. 


002204 


004441 






END 






002206 


000167 


177424 




JMP 


OATAT 


1 RECYCLE TEST 


002212 


000000 






RESTORES 


HALT 




002214 


000777 






if? 


t 


J DO NOT RESTORE MEM 



PALXil 



V003 



19-NOV-70 15104 PACE 6 



I ENTER DISK HANDLER BY THE TR 
I ARGUMENT TQ TRAP INSTRUCTION 
t BYTE OF THE CONTROL REGISTER 



002216 


016705 


176604 DISK? 


MOV 




002222 


016745 


176622 


MOV 


TRACKi-(5) 


002226 


016745 


176620 


MOV 


DMA » - ( 3 ) 


002232 


016745 


176620 


MOV 


SUF,~<5> 


002236 


016749 


176604 


MOV 


WRDCT,-(5) 


002242 


005115 




COM 


(9) 


002244 


005215 




INC 


(5) 


002246 


011604 




MOV 


<6>,%4 


002250 


014467 


176644 


MOV 


~M) ( WORK 


002254 


042767 


177600 176636 


BIC 


#177600, WORK 


002262 


016745 


17&632 


MOV 


WQRK,«<5i 


002266 


000002 




RTI 





RFli DISK INTERRUPT HANDLER 
ROUTINE CONTINUES ON ERRORS 



002270 


042777 


000020 


176504 


DKINTI BIC 




002276 


009777 


176512 




TST 


• DCS 


002302 


100113 






BPL 


INTEXT 


002304 


052767 


001000 


176530 


BIS 


#31T*#FLAG 


002312 


017767 


176506 


176600 


MOV 


©DAE f WORK 


002320 


142767 


177700 


176572 


BIG 


#177700, WORK 


002326 


004567 


001444 




JSR 


%5»CONV 


002332 


001120 






WORK 




002334 


004209 






MES1A 




002336 


000002 






2 




002340 


104001 






EMT«1 




002342 


004075 






HED2 




002344 


017767 


176452 


176546 


OELMESI MOV 


S»QAR , WORK 


002352 


005367 


176542 




DEC 


WORK 


002356 


004567 


001414 




USR 


X5,CQNV 


002362 


001120 






WORK 




002364 


004171 






MESl 




002366 


000006 






6 




002370 


104000 






EMT*0 




002372 


004205 






MESlA 




002374 


004171 






MESl 




002376 


177777 






-1 




002400 


017767 


176410 


176512 


MOV 


*DCS, WORK 


002406 


004967 


001364 




JSR 


X5iC0NV 


002412 


001120 






WORK 




002414 


004215 






ME82 




002416 


000006 






6 





P INSTRUCTION 
IS TWO ORDER 



»SET UP Tp LOAD DISK REG 

ROAD TRACK NUMBER 

I LOAD WORD ADDRESS 

$ SET UP CURRENT ADDRESS 

J LOAD WORD COUNT 

I SET UP TWO'S COMPLEMENT 



I 

I MASK FUNCTION BITS 
I LOAD FUNCTION REG. 
} RETURN FROM TRAP 



ICUEAR TRACK SIT 

itss? for imm 
iBftMQti if no error 

I SET ERROR BJT 

| REPORT ERROR 

} MASK ADDRESS EXT » BITS, 

J CONVERT TO ASCII 



{SET UP LOWER 16 BITS OF ADDR, 
> CONVERT TO ASCII 



»SET UP STATUS 



PALX11 VM3 19-NOV-r70 



15104 



PACE 6-1 



002420 104001 
002422 004215 

002424 032777 040000 176362 



EMT + 1 
MES2 

BIT #B1T14,@0CS 



PALXI1 


V003 


19-N0V- 


70 


15104 


PAGE 7 






002432 


001430 








BED 


SOFTER 


)GO AND CONTINUE SOFT ERROR 


002434 


017767 


176364 


176456 




MOV 


9DAE # WORK 


J FETCH ERROR EXT, BITS 


002442 


000367 


176452 






SWAB 


WORK 




002446 


042767 


177400 


176444 




B1C 


0177400, WORK 




002494 


004567 


001316 






JSR 


XSiCONV 


ICONVERT TO ASCII 


002460 


001120 








WORK 






002462 


004231 








MES2A 






002464 


000003 








3 






002466 


104000 








EMT*0 






002470 


004167 








HED5A 






002472 


004231 








MES2A 






002474 


177777 








-1 




1- CLE A ft THE 


002476 


052777 


300400 


176310 




8!S 


#B?T8 f S»DCS 


032504 


013706 


0^1000 






MOV 






0323*0 


300177 


176364 






JMP 


■mnntn 


J EX IT HARD KRRvJR 




003777 


176276 




SOFTER J 


TST 


e-wc 


J CHECK FOR X-«F£R DOME 


fa *2 & O ffi 

W 3? if, ;t *i S5 


» w ?. •* 63 ^ 








J t W 


I N it XT 


1 1, All $ HOP? Row f I 


002522 


052777 


^•0001 






1)18 


#BIT0#$BCS 


« S T SO AND CQKTife^ 


005533 


000002 








fill 




jRETURN TO WAIT lififR, 




012706 


0f«0774 






HOY 




Jf-lKSE? ST ASK 




« S) s f* a 9 

53 V s) W v &. 








RTI 




lOlT 










IRUUTIHE TO SETUP DISK BUFFERS 












IAD0 WORD COUNT 


TO START INS 01SK ADDRESSES 










J COMPARE CALCULATED ADDRESS TO 


TgRMINATINS ADDRESS 


002340 


06676/ 


176302 


175304 




ADD 


WROCT i DMA 


IAOD WORD COUNT TO LOWER 16 




„\ isy iv so £ 








BCC 


COMDAR 






009167 


176274 






!NC 


TRACK 


|fi¥£RFL0W ADD ONE TO TRACK 


002594 


026777 


176272 


176240 


COMDAFM 


CMP 


DMA,»0AR 


1 COMPARE LOWER 16 BITS 




001403 








8E9 


CHDAE 




002564 


052767 


0C0100 


176250 




BIS 


#b I t<6 » flag 




002572 


017767 


176226 


176322 


\ 

CMDAEt 


MOV 


9DAE,W0RK1 


1 FETCH EXT, AODR BITS 


002600 


S42767 


177740 


176314 




BIC 


#177748iWQR1U 


f MASK TRACK AND DISK AODR 


002606 


042767 


177740 


176234 




big 


#177740, TRACK 




002614 


026767 


176230 


176300 




CHP 


TRACK i WCRKi 


1 ARE THEY EQUAL 


002622 


001100 








BNE 


ERADR 


1 ERROR IN DAE REG 


002624 


105767 


176212 






TSTB 


FLAG 


1 CHECK FOR LAST DISK BUFFER 


002630 


100015 








8PL 


EXTCME 


002632 


005067 


176214 






CLR 


DMA 


1 CLEAR LOWER 16 SITS 


002636 


005067 


176206 






CLR 


TRACK 


f CLEAR EXT ♦ A DDR, BITS. 


002642 


042767 


000200 


176172 




BIC 


#200, FLAG 




002650 


062716 


000004 






ADD 


#4,(6) 


1 INC STOCK POINTER 


002654 


016767 


176204 


176164 




MOV 


SWRDCTiWROCT 




002662 


000457 








BR 


EXTOR 


IEXIT 



PALX11 


V003 


19-N0V- 


70 


15104 


PAGE 8 






002664 


042767 


177774 


176230 


EXTCMEI 


BIC 


#177774,W0RK1 


I MASK EXT, TRACK BITS 


002672 


022767 


000003 


176222 




CMP 


*3iWORKl 


ICOMPARE FOR LAST TRACK 


002700 


001033 








BNE 


AKH 


I NOT LAST TRACK EXIT 


002702 


017767 


176116 


176210 




MOV 


•DAE# WORK 




002710 


042767 


177743 


176202 




BIC 


#177743, WORK 




002716 


026767 


176176 


176152 




CMP 


WORK i OSKNOR 




002724 


001021 








BNE 


AKH 




002726 


017767 


176070 


176164 




MOV 


S>DAR, WORK 


1 FETCH LOWER 16 BITS OF ADDRESS 


002734 


066767 


176106 


176156 




ADO 


WRDCT,WORK 


1 WILL DISK OVERFLOW 


002742 


103012 








BCC 


AKH 




002744 


052767 


000200 


176070 




BIS 


#200, FLAG 




002792 


0X7767 


176044 


176066 




MOV 


9DAR t WRDCT 


IDISK WILL OVERFLOW 


002760 


00S&67 


176062 






COM 


WROCT 


i SET UP NEW WORD COUNT 


002764 


009267 


176036 






INC 


WRDCT 


* 


002770 


017767 


17^030 


176052 


AKH J 


MOV 


•OAEi TRACK 




002776 


042767 


177740 


176044 




BIC 


#177740 , TRACK 


IMASK TRACK BITS 


003004 


017767 


17A012 


176040 




MOV 


®DAR t DMA 


I LOWER 16 8ItS OF ADDRESS 


0(83012 


032767 


003:100 


176022 




SIT 


#BIT6#FLAG 




003.020 


001001 








BNE 






$83022 


(300S07 






EXTDRl 


RYS 


%? 


I E K 1 f 


0S5;324 


004367 






ERAORf 


JSP? 


XSjCONV 


J COM VERT DHA MU COUNT TQ ASCII 


003030 


801052 








DMA 






003332 


004171 








mes* 






003034 


mmm 








6 






003036 


00436? 


£03734 






JSR 


%3#C0NV 


1 CONVERT TRACK REG COUNT TO ASCII 


003042 


004930 








TRACK 






083044 


004205 








HES1A 






003@46 


mmm 








2 






003^30 


104000 








£MT 


*0 


I REPORT ERROR 


003032 


004142 








HED4 






003034 


004205 








MESjA 






003056 


004171 








M E S 1 






003060 


177777 








-1 






003062 


003067 


173764 






CUR 


DMA 


IDISK ADDRESS ERROR RE-START PROG. 


003056 


005067 


175796 






CiR 


TRACK 




003072 


000000 








WAIT 







PALX11 V003 



19-NOV-70 



15104 PAGE 9 



ROUTINE TO FILL BUFFERS WITH RANDOM DATA 



ENTER FROM JSR X7,RANEX 



003074 (316767 175746 176016 
003102 012705 001112 



RANEX I 



MOV 

MOV 



WRDCT,WQRK 

#QUTBUF,%5 



ISET UP WORK 
ILOCV OF OUTBUFFER 



J RANDOM DATA GENERATOR SUBROUTINE 



003106 


016700 


000120 


DAVGEN5 MOV 


LONUM»X0 


033112 


016701. 


0U0116 


MOV 


HINUM*»i 


003.116 


012703 


080007 


MOV 


#7 ? %3 


033122 


009§02 




CUR 




003124 


006308 




SHIFT % A SI, 


%§ 


003126 


006101 




ROL 


%% 


003130 


006102 




ROL 


%2 


003132 


005903 




DEC 


M3 


003134 


001373 




BNE 


SHIFT 


003136 


066733 




ADO 


LONUM?&0 


003142 


003501 




ADC 


%X 


003144 


066701 




ADD 


HINUMpii 


0031P0 


005502 




ADC 


X2 


003152 


062700 


0(331057 


ADD 


#4057tX0 


003136 


005301 




ADC 


XI 


003160 






ADC 


%2 


003162 


062701 


047401 


ADD 


#47401,*! 


003166 


005502 




ADC 


*2 


003170 


062702 


3M0006 


ADD 


#6,%2 


003174 


060200 




ADD 




003176 


005501 




ADC 


%t 


003200 


010067 


200926 


MOV 


%0,LONUM 



SET UP R0 wjTH 5 DIGITS LOW 

SET UP Rl WITH § OISITS HIGH 

set up shift eeuN? 

CLEAR ill 

SHIP? ft0 LEFT A MB 
ROTATE CARRY INTO LSB Of Rl INTO 
ROTATE CARRV OUT OP Rl INTO m 
DECREMENT i^S 

CONTINUE shIpt loop* 

A DON IN NUMiSR TO M^KE X iif 

PROROGATE CARRT 

A PON IN NUMBER TO MAKE X i29 

PROROGATE CARRY' 

AOON LOW CONSTANT 

PROVOCATE CARRIES 

PROROGATE AGAIN 

AOON HIGH CONSTANT 

PROROGATE CARRY 

AOON HIGHEST CONSTANT 

REPRIME R0 WITH HIGH DIGIT 

PR0P9GATE CARRY 

PUT R0 BASK IN LONUM 



Mum V003 



19-NOV-70 



15104 PACE 10 



003204 
003206 
003212 
003214 
003220 
003222 
003226 
003230 
003232 
003234 



010025 
005367 
001406 
010167 
010125 
005367 
001327 
000207 
000000 
000000 



175706 
000014 
175672 



MOV 


X0» <5>* 


I HOLD LONUM FOR PROGRAM 


DEC 


WORK 




BEQ 


EXGEN 




MOV 


XliHINUM 


JPUT Rl BACK IN HINUM 


MOV 


%li <5> + 


IHOLO HINUM FOR PROGRAM 


DEC 


WORK 




BNE 


OAYGEN 




RTS 





%7 


JRETURN TO PROGRAM 



EXGEN t 
LONUMI 

HINUM 5 
i 
I 

I DATA COMPARISON ROUTINE 
I IF AN ERROR OCCURS BETWEEN THE 
I THE IN-BUFFER AN ERROR WILL BE 
IPOLUOWING MANNER 

J DATA ERROR XX DAE XXXXXX OAR XXXXXX GOOD DATA XXXXXX BAD DATA 
I 



O'UT-BUFFER AND 

REPORTED IN THE 



00.3336 


005067 


175662 




COMPARE ICLR 


WORKS 


003242 


@iS?67 


175644 


179620 






OU?»UF#SAV£ 


003230 


gi 3,6767 


175640 


179614 




MOV 


INBUF #SaV1 


003256 


027777 




175606 




CMP 


§SA¥f i^SAVI 


003264 


004016 








BNE 


WDERR 


003266 


005267 


17 5632 




WRDiNCt 


INC 


W0RK2 


003272 


026767 


175550 


175624 




CHP 


WRDCT,WQRK2 


003300 


001407 








BEQ 


ADAM 


003302 


062767 


080002 


175560 




ADD 


#2, SAVE 


003310 


062767 


020002 


175554 




ADD 


#2#SAV1 


003316 


000757 








BR 


WRDCMP 


003320 


000205 






ADAH! 


RTS 


X5 


003322 


052767 


001000 


175512 


1 

WDERRl 


BIS 


#b i T9 » flag 


003330 


016767 


175516 


175562 




MOV 


DMA, WORK 


003336 


016767 


175506 


175556 




MOV 


TRACK* W0RK1 


003344 


066767 


175554 


175546 




ADO 


WORKS, WORK 


003352 


103002 








BCC 


,*6 


003354 


005267 


175542 






INC 


W0RK1 


003360 


004567 


000412 






JSR 


XSiCONV 


003364 


001120 








WORK 




003366 


004171 








MES1 




003370 


000006 








6 




003372 


004567 


000400 






JSR 


%5»C0NV 


003376 


001122 








W0RK1 




003400 


004205 








MESlA 




003402 


000002 








2 




003404 


017767 


175460 


175506 




MOV 


iSAVE»WORK 


003412 


004567 


000360 






JSR 


%5,C0NV 


003416 


001120 








WORK 




003420 


004314 








MES5 




003422 


000006 








6 




033424 


017767 


175442 


175466 




MOV 


f»SAVl*W0RK 


003432 


004567 


000340 






JSR 


X5,C0NV 


003406 


001120 








WORK 





imm muni 

f SET UP QUT0UFFSR POINTER 

iSET UP IN BUFFER POINTER 

I COMPARE BUFFERS 

? WORD IN ERRCR 

1*1 WORD COUNT 

IIS COMPLETE SUFFER CHECKED 

I E X I ? ROUTINE 



I COMPARE NEXT WORD 
JEXIT THIS ROUTINE 

fSgT ERROR BJT 

I FETCH STARTING DISK ADOR 

I 

I CALCULATE FAILING ADDR 
JSHOULO DAE BE INCREMENTED 

I CONVERT WORD ADDR TO ASCII 



ICONVERT TRACK ADDR TO ASCI I 



| FETCH GOOD DATA 

ICONVERT GOOD DATA TO ASCII 



IFETCH SAQ DATA 
I CONVERT TO ASCI! 



PAUXU V003 19-NOV-70 13104 PAGE X0-1 

003440 004330 MES6 
003442 000006 6 



PAlXli V003 



19-NOV-70 



15104 J? AGE 11 



003444 
003446 
003450 
003452 
003454 
003456 
003460 
003462 



104000 
004060 
004205 
004171 
004314 
004330 
177777 
000701 



EMT 

HEOl 

HESlA 

MESl 

MES5 

MES6 

-1 

BR 



+ 



JPRJNT MESSAGE 



WROINC 



I SO COMPARE NEXT WORD 



BACKGROUND TEST FOR INTERRUPTS 



003464 


012767 


0f3552 


174322 


XWAITI 


MOV 


#RTIX,14 


003472 


005067 


174320 






CUR 


16 


S33476 


805067 


175372 






CUR 


PASS 


003502 


053,777 




17S2V*2 




BIS 


#SlT4 f ®CSR 


003910 


003027 








ct«- 


m 


003514 


005267 


i?77?2 




X1NCWI 


INC 


XINCW-a 


003520 


3.05767 


1/7766 






TSTS 


XINCW2 


003524 


100373 








BPU 


XI NOW 


003526 


005S67 


175342 






INC 


PASS 


003532 


0014S1 








sea 




003534 


000765 








BR 


XINCW-4 










J REPORT 


BACKGROUND TEST TIMES 


003S36 


043777 




179236 




BIG 




003544 


104001 








EMT*1 




003546 


034401 








TIMO 




003550 


000000 








HAUT 




003552 


000002 








RTI 





J SET UP TRACE TRAP 

ISET UP TIME BASE 
ISET TRACE BIT 



I CLEAR TRACE 8 if 



PALXii VB03 



19-NOV-70 



15104 PAGE 12 



I TEST FOR CONTROL "C" 

lUPON RECEIPT OF CNTLC SET FLAG BIT 



003554 


017767 


175226 


175336 CNTLCI 


MOV 


3TKB » WORK 


IFE7CH KEYBOARD BUFFER 


003562 


042767 


000200 


175330 


BIC 


#B!T7,W0RK 


1 MASK FOR 33 


083570 


022767 


000003 


175322 


CMP 


#3 f HORK 


f TEST FOR CNTLC 


003576 


001003 






BNE 


,*X0 


INOT CNTLC EXIT 


003600 


052767 


100000 


175234 


BIS 


#8IT15,FLAG 


ISET FLAG Bit 


003606 


000002 






RTI 




JEXIT ROUTINE 



003610 
003612 
003616 
003620 

003622 
003624 
003630 
003632 
003636 
003644 
003646 
003650 
003656 
003660 
003666 
003670 
003674 
003676 
003704 
003710 
003712 
003714 
003722 
003726 
003734 
003740 
003742 

003744 
003746 
003752 
003756 
003764 
003766 



011600 
022740 
001052 

011600 
062716 
011000 
112067 
122767 
001001 
000002 
122767 
00141S 
122767 
004417 
004767 
000756 
116777 
105777 
100375 
000207 
112767 
004767 
112767 
004767 
000734 
000000 

011600 
062716 
011067 
022767 
001001 
000002 



104001 



000002 



000104 

300100 000076 



000040 173100 
175100 



000015 000020 
177750 

000012 000006 
177736 



000002 
000014 

177777 000006 



I 

I 

IROUTINE TO DECODE EMT CALLS 
IEMT*1=TVPE 
I EMT*0 a TYPE 
EMTRPJ MOV 

CMP 

BNE 

BR 

ISUBROUTINE 
TYPl 



TYFAI 



000045 000064 TYPCI 
000042 000054 
000002 



NOV 
ADO 
MOV 
MOVB 
CMPB 
BNE 
RTI 
CHP8 
BEQ 
CMPB 
BEQ 
JSR 
BR 

MOVB 
TSTB 
BPL 
RTS 
MOVB 
JSR 
MOVB 
JSR 
BR 

TYPDATI 
ISUBROUTINE 
TYPSI MOV 
ADO 
MOV 
CMP 
BNE 
RTI 



ONE LINE OF TEXT 
A SER I ED OF LINES 
<6),M0 
#EMT*1,~<0) 
TYPS 
TYP 

TO OUTPUT ASCII 
9X6, X0 

#2 «m 

OX0,X0 

(0>**TYPDAT 
#100,TYPDAT 
TYPO 



TYPDI 



TYEXITI 
TYPfl 

TYPGI 



#45,TYP0AT 
TYPF 

#42,TYPDAT 

TYPG 

%7,TYPD 

TYPA 

TYPDATf &TPB 

@»TPS 

,-4 

X7 

#15,TYPDAT 
%7,TYPD 
#12,TYPDAT 
X7,TYPD 

TYPA 



IWAS THE CALL EMT*1 
I MO I TYPE A SERIES 
5 TYPE ONE LINE 
MESSAGE ON TELETYPE PRINTER, 

I GET ADDRESS THAT CONTA INS MESSAGE ADDRESS 
iSST UP EXIT. 

J ADDRESS OF MESSAGE 70 R0 . 
JGET CHARACTER 
I CHECK FOR CHARACTER 
BRANCH IF NOT »«»", 
I TERMINATOR CHAR i DONE. EXIT, 
I CHECK FOR "X", 
I BRANCH IF «X». 
i NOT »*»'; CHECK FOR 
J BRANCH IF "*» 
I TYPE CHAR IN TYP0A? 

J OUTPUT CHARACTER TO PRINTER 
iWAIt FOR DONE FLAG, 

IEXIT 

IMOVE CARRIAGE RETURN CODE TO TYPDAT 

IGO TYPE CHAR, 

I MOVE LF CODE TO TYPOAT , 

i GO TYPE CHAR. 



TO OUTPUT A 
0X6, X0 
#2, *X6 
•X0,TYPSB 
#-l#TYPSB 
TYPSA 



SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 

| GET ADDRESS THAT CONTAINS MESSAGE ADDRESS 
I UPDATE TO NEXT MESSAGE ADDRESS 
(ADDRESS OF MESSAGE TO TYPSB 
ICHECK FOR TERMINATOR 
i BRANCH IF NOT TERMINATOR. 
I TERM I NATOR , EXIT 
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003770 


104001 




TYPSAI 


EMT 


♦ 1 


ICALL ON TYP SUB TO TYPE MESSAGE 


003772 


000000 




TYPSBt 







I ADDRESS OF MESSAGE GOES HERE 


003774 


000763 




t 
t 


BR 


TYPS 


IGO PROCESS NEXT MESSAGE 








IOCTAL 


TO ASCII 


CONVERT ROUTINE 








I ENTER 


ROUTINE 


AS FOLLOWS 












»CONV 












JADDR* 


•ADDRESS 


OF NUMBER TO 


BE CONVERTED 








IADDR 


BYTE'LSB 


OF WHERE ASCII IS GOING 








IASCI I««THE NUMBER OF ASCI! 


CHAR, TO BE CONVERTED 


003776 


013567 


000054 


CONVt 


MOV 


«»<5)*, ACNVX 


1VALUE OF * TO BE CONVERTED 


004002 


012901 






MOV 


<5>*,%1 


I ASCI I ADDR 


034004 


012902 






MOV 


0)*,%2 


i# OF ASCII CHAR 


004006 


060201 






ADD 


%2*%1 




00403.0 


016703 


000042 


ACVNI 


MOV 


ACNVX »X3 




004014 


042703 


177772 




BIG 


#177770, X3 


\ ISOLATE LEAST SI SNIP I CANT OCTAL* 


004020 


062783 


000060 




ADO 


#60, %3 


I3ET UP ASCII* 


004024 


13.0341 






MOVB 


X3,-<1> 


iSTORE ASCII CHAR 


034026 


042767 


000007 000022 




BIC 


#7, ACNVX 




004034 


006067 


000016 




ROR 


ACNVX 


1 ROTATE OCTAL* 


004040 


006067 


000012 




ROR 


ACNVX 




004044 


006067 


000006 




ROR 


ACNVX 




004030 


009302 






DEC 


%2 


1*1 FROM ASCII CHAR COUNT 


004052 


001396 






BNE 


ACVN 




004054 


000209 






RTS 


%5 


JEXIT # CONVERTED 



PAIX11 VM3 19-NGV-70 
£04056 000000 



15104 PACE 14 

ACNVXS 



JWORK REGISTER 



004060 
004061 
004062 
004063 
004064 
0(34063 
004066 
004067 
004070 
004071 
004072 
004073 
004074 



004060 
045 
104 
101 
124 
101 
040 
103 
122 
122 
117 
122 



ERROR MESSAGE HEADERS 



» EVEN 
HEOlt .ASCII 



/XDATA ERROR 9/ 



100 



004075 
004076 
004077 
004100 
004101 
004102 
004103 
004104 
004105 
004106 
004107 
004H0 
004H1 
004112 
004H3 



045 
123 
124 
101 
124 
125 
123 
040 
105 
122 
122 
117 
122 
040 
100 



2 
I 

HCD2I , ASCII /XSTATUS ERROR */ 



004H4 
004H5 
004H6 
004H7 
004120 
004121 
004122 



045 
117 
126 
105 
122 
106 
114 



\ 
J 

HED3I .ASCII /XOVERFLO X-FER ERROR •/ 
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084123 117 

004124 040 

004125 130 

004126 055 

004127 106 

004130 105 

004131 122 

004132 040 

004133 105 

004134 122 

004135 122 

004136 117 

004137 122 

004140 040 

004141 100 



I 

004142 045 ME04J .ASCII /XDISK ADDRESS ERROR */ 

004143 104 
304144 ill 

004145 123 

004146 113 



004147 
004190 101 



004151 

004192 104 

004153 122 

004134 105 

004155 123 

004156 123 



004137 

004160 105 

004161 122 

004162 122 

004163 117 

004164 122 



004165 
004166 100 



004167 
004170 



045 
100 



I 
I 

HED5AI .ASCII /%»/ 



004171 
004172 
004173 



040 
040 
040 



I MESSAGE TRAILERS 
MESH .ASCII! / 



OAR 9/ 
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004174 
004173 
004176 
004177 
004200 
004201 
004202 
004203 
004204 



040 
040 
040 
040 
104 
101 
122 
040 



004205 
004206 
004207 
004210 
004211 
004212 
004213 
004214 



040 
040 
040 
104 

101 
105 

040 
100 



I 
J 
I 

MESUi , ASC I I 7 DAE »/ 



004215 
004216 
004217 
004220 
004221 
004222 
004223 
004224 
004225 
004226 
004227 
004230 



040 
040 
104 
103 
123 
040 
100 



I 
I 
j 

MES2J 



, ASCII / 



DCS 9/ 



004231 
004232 
004233 
004234 
004235 
004236 
004237 
004240 
004241 
004242 
004243 
004244 
004245 
004246 
004247 
004250 



040 
040 
040 



040 
040 
110 
101 
122 
104 



109 

122 
122 
117 



I 

MES2A! .ASCII / 



HARD ERBOR*/ 
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004251 122 

004252 100 

I 
I 

004233 040 MCS3I .ASCII / WORD COUNT*/ 

004254 040 

004255 040 



004256 

004257 040 

004260 127 

004261 117 

004262 122 

004263 104 

004264 040 

004265 103 

004266 117 

004267 125 

004270 116 

004271 124 
004272 



i 
I 

I 

004273 040 MES4I .ASCI I / WORD AOR>/ 

004274 040 
004275 



004276 040 
004277 



004300 

004301 040 

004302 127 

004303 117 

004304 122 

004305 104 



004306 
004307 101 

004310 104 

004311 122 

004312 056 

004313 100 

I 
\ 
I 

004314 011 MES5I .ASCII / OOOO DATA */ 

004315 107 

004316 117 

004317 117 

004320 104 

004321 040 

004322 104 

004323 101 

004324 124 
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024325 101 

004326 040 

004327 100 



I 
I 
I 

004330 040 MES6I , ASCI I / BAD DATA •/ 

004331 040 

004332 040 

004333 040 
004334 



004339 040 
004336 



004337 102 

004340 101 

004341 104 
004342 



004343 104 

004344 101 

004345 124 

004346 101 
004347 
004330 
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004351 
004352 
004353 
004354 
004355 
004356 
004357 
004360 
004361 
004362 
004363 
004364 
004365 
004366 
004367 
004370 
£04371 
004372 
004373 
004374 
004375 



040 
040 

040 

105 
130 
111 
123 
124 
105 
116 
124 
040 
104 
111 
123 
113 

m§ 

001 
056 
li0 



I 
I 

MESH! .ASCII / EXISTENT DISK(S) «•/ 



004376 
004377 
004400 



100 



? 
I 

HESlfl .ASCII / 



004401 
004402 
004403 
004404 
004405 
004406 
004407 
004410 
004411 
004412 
004413 
004414 
004415 
004416 
004417 
004420 
004421 
004422 
004423 
004424 
004425 
004426 



045 
120 
122 
117 
103 
105 
123 
123 
117 
122 
040 
102 
101 
103 
113 
107 
122 
117 
125 
116 
104 
040 



I 
I 

TIMO I .ASCII /XPROCESSOH BACKGROUND TIMED OUT*/ 
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004427 124 

004430 111 

004431 115 

004432 105 

004433 104 

004434 040 

004435 117 

004436 125 

004437 124 
004440 100 



004442 105 

004443 116 



004445 100 



i 

END t .ASCII /%Z 



224446 
004446 000000 
000001 



i EVEN 
BUFFER i 

,END 
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CD 

an 
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001302 


START 


001126 






EXTCHE 


002664 


STATUS 


003,036 






EXTOR 


003022 


STORBU 


002164 






EXTMEM 


001292 


SW^OCT 


001064 






FLAG 


001042 


TDMA 


005.042 
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RRORS DETECTED! 
UN-TIMEI 6 SECONDS 
K CORE USED 



